package Wagons.Sdj is


   type Wagon_Sdj(Model : Type_Wagon) is private;

   function Contenance (Sdj :Wagon_Sdj) return Positive;
   function Capacite ( Sdj : Wagon_Sdj) return Positive;
   function Saisir return Wagon_Sdj;
   procedure Afficher(Sdj : Wagon_Sdj);

private
   type Wagon_Sdj(Model : Type_Wagon) is new Wagon(Model) with record
      Cap: Positive;
   end record;

end Wagons.Sdj;
